MacFormat España 27/MacFormat n. 27 (Spain)/Mac Format 26.bin/Shareware/Juegos/numerarium/numerarium.dxr/00001.ls

Text File | 1997-02-16 | 27.9 KB | 978 lines

global toDrawFromSet, lengthtoDrawFromSet, nrOfStims, stimSet, targetnr, bestresultSoFar, bestresultSoFarStr, nrofcalculations, nrbuttontable, currentStep, currentInputStatus, zerobuttonsnr, zerooperatorsnr, firstbuttonloch, hdistancebetweenbuttons, firstbuttonlocv, firstnrloch, firstnrlocv, vdistancebetweenbuttons, zeroClearsnr, operatorList, operand1, operand2, operator, operatorindex, tempoperatorindex, heaven, tempresultbuttonsnr, tempresultnrsnr, connectorsnr, tempoperatorsnr, spinnersnr, connectorlocs, connectorcastnums, opconnectorcastnums, calcIsRunningP, calculatorsnr, nrOfCalcsSnr, nrOfCalcsLoc, foundItIsSalient, foundItButtonNr, clockIsActiveP, fillbarsnr, timeAtReset, ticksPassed, maxlengthFillbar, maxsecssnr, deadlinePassed, nrOfSecsInMAxSecs, clocksnr, timeOutLinesnr, menusnr, score, hscoreFromFile, timeOnStartCalculator, calcAlwaysP, menuVisibleP, wrappedHOffset, wrappedVOffset, scorepossibleThisRoundP, lastbutton, operand2index, findProblemInDatabaseP, selectableProblems, fakesolution, justAborted, firstabortprocessed, easyP, minusalertGivenP, dividealertGivenP, initializedP, switchedP

on startMovie
  set the text of member "letsplay" to RETURN & " " & RETURN
  set switchedP to 1
  SETALLTEXTCORRECT()
  puppetSound("kithara.aif")
  set the stageColor to 210
  set score to 0
  put "0" into field "scorestr"
  set initializedP to 0
end

on startinit
  if initializedP then
    return
  else
    startplay()
    set initializedP to 1
    set the text of member "letsplay" to RETURN & "LET'S PLAY!" & RETURN
  end if
end

on doneWithInit
  go("startplay")
end

on makesureSoundPlays
  if not soundBusy(1) then
    puppetSound("kithara.aif")
  end if
end

on clickOnEasy
  set switchedP to 1
  set easyP to 1
  set toDrawFromSet to [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 15, 20, 25]
end

on clickOnhard
  set switchedP to 1
  set easyP to 0
  set toDrawFromSet to [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 15, 20, 25, 50, 75, 100]
end

on SETALLTEXTCORRECT
  repeat with i = 1 to 7
    if i < 7 then
      set whichCastMember to "stim" & string(i)
    else
      set whichCastMember to "tempresult"
    end if
    set the textHeight of member whichCastMember to 16
    set the textAlign of member whichCastMember to "center"
    set the textFont of member whichCastMember to "Monaco"
    set the textSize of member whichCastMember to 12
    set the textStyle of member whichCastMember to "plain"
  end repeat
  set the textHeight of member "tempresult" to 12
  set whichCastMember to "targetfield"
  set the textAlign of member whichCastMember to "center"
  set the textFont of member whichCastMember to "Monaco"
  set the textSize of member whichCastMember to 24
  set the textStyle of member whichCastMember to "bold"
  set whichCastMember to "calculationsfield"
  set the textAlign of member whichCastMember to "left"
  set the textFont of member whichCastMember to "Geneva"
  set the textSize of member whichCastMember to 6
  set the textStyle of member whichCastMember to "plain"
  set whichCastMember to "showprogress"
  set the textAlign of member whichCastMember to "left"
  set the textFont of member whichCastMember to "Geneva"
  set the textSize of member whichCastMember to 12
  set the textStyle of member whichCastMember to "plain"
end

on startplay
  set wrappedHOffset to 0
  set wrappedVOffset to -5
  set the stageColor to 247
  startTimer()
  set nrOfStims to 6
  set zerobuttonsnr to 20
  set zerooperatorsnr to 4
  set zeroClearsnr to 10
  set spinnersnr to 42
  set toDrawFromSet to [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 15, 20, 25, 50, 75, 100]
  set lengthtoDrawFromSet to count(toDrawFromSet)
  initializeRomans()
  set operatorList to ["+", "-", "x", ":"]
  repeat with n = 1 to nrOfStims
    puppetSprite(zerobuttonsnr + ((n - 1) * 2) + 1, 1)
    puppetSprite(zerobuttonsnr + (n * 2), 1)
    set the visible of sprite (zerobuttonsnr + ((n - 1) * 2) + 1) to 1
    set the visible of sprite (zerobuttonsnr + (n * 2)) to 1
  end repeat
  repeat with n = 1 to count(operatorList)
    puppetSprite(zerooperatorsnr + n, 1)
  end repeat
  set tempresultbuttonsnr to 9
  set tempresultnrsnr to 10
  puppetSprite(tempresultbuttonsnr, 1)
  puppetSprite(tempresultnrsnr, 1)
  spriteBox(tempresultnrsnr, 1100, 1100, 1191, 1130)
  set connectorsnr to 19
  set tempoperatorsnr to 20
  puppetSprite(connectorsnr, 1)
  puppetSprite(tempoperatorsnr, 1)
  puppetSprite(spinnersnr, 1)
  set calculatorsnr to 3
  puppetSprite(calculatorsnr, 1)
  set nrOfCalcsSnr to 4
  puppetSprite(nrOfCalcsSnr, 1)
  set nrOfCalcsLoc to point(22, 468)
  initRadioButtons()
  set firstbuttonloch to 122
  set firstbuttonlocv to 117
  set hdistancebetweenbuttons to 84
  set vdistancebetweenbuttons to 52
  set firstnrloch to 58
  set firstnrlocv to 95
  set heaven to point(1000, 1000)
  set clockIsActiveP to 0
  set fillbarsnr to 33
  puppetSprite(fillbarsnr, 1)
  set the visible of sprite fillbarsnr to 0
  set maxsecssnr to 34
  puppetSprite(maxsecssnr, 1)
  set the visible of sprite maxsecssnr to 0
  set timeOutLinesnr to 44
  puppetSprite(timeOutLinesnr, 1)
  set the visible of sprite timeOutLinesnr to 0
  set maxlengthFillbar to 569 - 47
  set clocksnr to 1
  puppetSprite(clocksnr, 1)
  set calcAlwaysP to 0
  set menusnr to 46
  set menuVisibleP to 0
  puppetSprite(menusnr, 1)
  if initializedP then
    feedbackForSpinning()
    resetbuttons()
  else
    createbuttons()
  end if
  initAllVars()
  showfirstRow()
  initDatabase()
end

on spinAgain
  if currentInputStatus = #waitForOperand2 then
    unpressOperatorButton(operatorindex)
  end if
  feedbackForSpinning()
  if initializedP then
    resetbuttons()
  else
    createbuttons()
  end if
  put "before initAllVars" & the ticks
  initAllVars()
  put "before showfirstRow" & the ticks
  showfirstRow()
  set old to the stageColor
  set the stageColor to 247
  updateStage()
  set the stageColor to old
  put "before provideTheTask" & the ticks
  provideTheTask()
  put "after provideTheTask" & the ticks
  if calcAlwaysP then
    clickOnCalculator()
  end if
end

on unpuppetall
  repeat with i = 1 to 48
    puppetSprite(i, 0)
  end repeat
end

on initAllVars
  set justAborted to 0
  repeat with n = 1 to nrOfStims - 1
    puppetSprite(zeroClearsnr + n, 1)
    set the visible of sprite (zeroClearsnr + n) to 0
    set the castNum of sprite (zeroClearsnr + n) to cast "clearButtonUnPressed"
  end repeat
  set connectorlocs to []
  set connectorcastnums to []
  set opconnectorcastnums to []
  set the loc of sprite tempresultbuttonsnr to heaven
  set the loc of sprite tempresultnrsnr to heaven
  set the loc of sprite tempoperatorsnr to heaven
  set the loc of sprite connectorsnr to heaven
  set calcIsRunningP to 0
  set the loc of sprite nrOfCalcsSnr to heaven
  set currentStep to 1
  set currentInputStatus to #waitForOperand1
  set foundItIsSalient to 0
  set foundItButtonNr to 0
  set bestresultSoFarStr to EMPTY
  put bestresultSoFarStr into field "showprogress"
  set nrofcalculations to 0
  put toRoman(nrofcalculations) into field "calculationsfield"
  set the castNum of sprite calculatorsnr to cast "smallCalculator"
  updatescreenIfUserContinuesAFterFoundIt()
  if clockIsActiveP then
    resetTheClock()
  end if
  set operand2index to 0
  set dividealertGivenP to 0
  set minusalertGivenP to 0
end

on stopMovie
  repeat with n = 1 to nrOfStims
    set the visible of sprite (zerobuttonsnr + ((n - 1) * 2) + 1) to 1
    set the visible of sprite (zerobuttonsnr + (n * 2)) to 1
  end repeat
  set the stageColor to 210
  updateStage()
end

on showfirstRow
  set firstRow to getAt(nrbuttontable, 1)
  repeat with i = 1 to count(firstRow)
    if initializedP then
      set tempvalue to 0
    else
      set tempvalue to i
    end if
    setNrButtonvalue(getAt(firstRow, i), tempvalue)
    showNrButton(getAt(firstRow, i))
    shake(i)
  end repeat
  updateStage()
end

on provideTheTask
  set scorepossibleThisRoundP to 1
  set firstRow to getAt(nrbuttontable, 1)
  hideAllValues(firstRow)
  SetAllselectable(firstRow, 0)
  if not findProblemInDatabaseP then
    gettargetnr()
    getnrsfromset(nrOfStims)
  else
    put "before selectAProblem" & the ticks
    selectAProblem()
    put "after selectAProblem" & the ticks
  end if
  showtargetnr()
  showset()
  puppetSound(0)
  SetAllselectable(firstRow, 1)
  set the castNum of sprite spinnersnr to cast "dicescoop"
  set the loc of sprite spinnersnr to point(505, 103)
  updateStage()
  waitawhile(10)
  set the castNum of sprite spinnersnr to cast "dicedown"
  set the loc of sprite spinnersnr to point(504, 103)
end

on hideAllValues list
  repeat with n = 1 to count(list)
    hideNrButtonValue(getAt(list, n))
  end repeat
  updateStage()
end

on SetAllselectable list, boolean
  repeat with n = 1 to count(list)
    setNrButtonSelectable(getAt(list, n), boolean)
  end repeat
end

on getnrsfromset howmany
  set stimSet to []
  repeat with i = 1 to howmany
    set thisone to getAt(toDrawFromSet, random(lengthtoDrawFromSet))
    add(stimSet, thisone)
  end repeat
end

on showset
  set firstRow to getAt(nrbuttontable, 1)
  repeat with i = 1 to count(stimSet)
    set thisone to getAt(stimSet, i)
    setNrButtonvalue(getAt(firstRow, i), thisone)
    showNrButton(getAt(firstRow, i))
    updateStage()
  end repeat
end

on gettargetnr
  if easyP then
    set targetnr to random(89) + 10
  else
    set targetnr to random(899) + 100
  end if
end

on showtargetnr
  put toRoman(targetnr) into field "targetfield"
end

on getobjectFromSnr snr
  set theOne to snr - zerobuttonsnr
  set theOne to (theOne + 1) / 2
  return getAt(getAt(nrbuttontable, currentStep), theOne)
end

on clickOnNrButton
  put "clickonnrButton"
  if justAborted or menuVisibleP then
    return
  end if
  if calcIsRunningP then
    if (the mouseCast < 13) or (the mouseCast > 18) then
      return
    end if
    set snr to (the mouseCast - 2) * 2
  else
    set snr to the clickOn
    if the clickOn = 0 then
      return
    end if
  end if
  set whichObject to getobjectFromSnr(snr)
  handleClickOnNrButton(whichObject)
  updateStage()
end

on handleClickOnNrButton nrButton
  if currentInputStatus = #waitForOperand1 then
    set operand1 to nrButton
    pressButton(nrButton)
    set currentInputStatus to #waitForOperator
  else
    if currentInputStatus = #waitForOperand2 then
      if nrButton = operand1 then
        put "button already pressed"
        beep()
      else
        if (operator = ":") and ((the value of operand1 mod the value of nrButton) <> 0) then
          if (the value of nrButton > the value of operand1) and ((the value of nrButton mod the value of operand1) = 0) then
            set dummy to nrButton
            set nrButton to operand1
            set operand1 to dummy
            set operand2 to nrButton
            pressButton(nrButton)
            handleOperation()
            set currentInputStatus to #waitForOperand1
            if not dividealertGivenP then
              alert("You said" && the value of operand2 && " : " && the value of operand1 & ". But that's illegal: no fractions! So I swapped the operands for you.")
              set dividealertGivenP to 1
            end if
          else
            alert("Remainder of division must be equal to 0. So,             for example, 10 : 2 is legal, but 10 : 3 is illegal.")
          end if
        else
          if (operator = "-") and ((the value of operand1 - the value of nrButton) < 0) then
            set dummy to nrButton
            set nrButton to operand1
            set operand1 to dummy
            set operand2 to nrButton
            pressButton(nrButton)
            handleOperation()
            set currentInputStatus to #waitForOperand1
            if not minusalertGivenP then
              alert("You said" && the value of operand2 && " - " && the value of operand1 & ". But that's illegal: no negative numbers! So I swapped the operands for you.")
              set minusalertGivenP to 1
            end if
          else
            if (operator = "-") and ((the value of operand1 - the value of nrButton) = 0) then
              alert("Result must be greater than 0.")
            else
              set operand2 to nrButton
              pressButton(nrButton)
              handleOperation()
              set currentInputStatus to #waitForOperand1
            end if
          end if
        end if
      end if
    else
      if currentInputStatus = #waitForOperator then
        unpressButton(operand1)
        set currentInputStatus to #waitForOperand1
        if the buttonsnr of operand1 <> the buttonsnr of nrButton then
          handleClickOnNrButton(nrButton)
        else
          puppetSound("nrButtonClick")
        end if
      end if
    end if
  end if
end

on clickOnOperator
  put "clickonoperatr"
  if justAborted or menuVisibleP then
    return
  end if
  if calcIsRunningP then
    if (the mouseCast < 22) or (the mouseCast > 29) then
      return
    end if
    if the mouseCast < 26 then
      set snr to the mouseCast - 17
    else
      set snr to the mouseCast - 21
    end if
  else
    set snr to the clickOn
    if the clickOn = 0 then
      return
    end if
  end if
  set tempoperatorindex to snr - zerooperatorsnr
  handleClickOnOperator(tempoperatorindex)
  put "enter handle with .." & tempoperatorindex
  updateStage()
end

on handleClickOnOperator paramIndex
  if currentInputStatus = #waitForOperand1 then
    put "click on operator but waiting for operand 1"
    if operand2index = 0 then
      beep()
      return
    else
      set currentRow to getAt(nrbuttontable, currentStep)
      set whichObject to getAt(currentRow, operand2index)
      handleClickOnNrButton(whichObject)
    end if
  end if
  if currentInputStatus = #waitForOperand2 then
    unpressOperatorButton(operatorindex)
    set currentInputStatus to #waitForOperator
    if operatorindex <> paramIndex then
      handleClickOnOperator(paramIndex)
    else
      puppetSound("operatorButtonClick")
    end if
  else
    set operatorindex to paramIndex
    set operator to getAt(operatorList, operatorindex)
    pressOperatorButton(operatorindex)
    set currentInputStatus to #waitForOperand2
  end if
end

on pressOperatorButton operatorindex
  set snr to zerooperatorsnr + operatorindex
  set the castNum of sprite snr to the castNum of sprite snr - 4
  puppetSound("operatorButtonClick")
end

on unpressOperatorButton operatorindex
  set snr to zerooperatorsnr + operatorindex
  set the castNum of sprite snr to the castNum of sprite snr + 4
end

on handleOperation
  set currentRow to getAt(nrbuttontable, currentStep)
  set newRow to getAt(nrbuttontable, currentStep + 1)
  repeat with i = 1 to nrOfStims
    setNrButtonvalue(getAt(newRow, i), the value of getAt(currentRow, i))
    setNrButtonVisibleP(getAt(newRow, i), the visibleP of getAt(currentRow, i))
  end repeat
  set operand1index to the listpos of operand1
  setNrButtonvalue(getAt(newRow, operand1index), 0)
  set result to calculateResult()
  set operand2index to the listpos of operand2
  setNrButtonvalue(getAt(newRow, operand2index), result)
  set the loc of sprite tempresultbuttonsnr to the buttonloc of getAt(newRow, operand2index)
  set the loc of sprite tempresultnrsnr to the nrloc of getAt(newRow, operand2index)
  set the locH of sprite tempresultnrsnr to the locH of sprite tempresultnrsnr
  fixLocForWrappedText(tempresultnrsnr, "tempresult", the nrloc of getAt(newRow, operand2index))
  put toRoman(result) into field "tempresult"
  showConnectorToResult(operand1index, operand2index)
  updateStage()
  waitawhile(40)
  set the loc of sprite tempresultbuttonsnr to heaven
  set the loc of sprite tempresultnrsnr to heaven
  unpressButton(operand1)
  unpressButton(operand2)
  unpressOperatorButton(operatorindex)
  setAllNrButtonsToDimmed(currentRow, 1)
  setAllNrButtonTrails(1)
  updateStage()
  setNrButtonVisibleP(getAt(newRow, operand1index), 0)
  applyAllInVisibleP(newRow)
  repeat with n = 1 to nrOfStims
    applyVisibleP(getAt(newRow, n))
  end repeat
  if result = targetnr then
    repeat with n = 1 to nrOfStims
      if n <> operand2index then
        hideNrButton(getAt(newRow, n))
      end if
    end repeat
  end if
  setAllNrButtonTrails(0)
  updateStage()
  setAllNrButtonsToDimmed(newRow, 0)
  updateStage()
  repeat with n = 1 to nrOfStims
    showNrButtonValue(getAt(newRow, n))
    applyVisibleP(getAt(newRow, n))
  end repeat
  set the visible of sprite (zeroClearsnr + currentStep) to 1
  set currentStep to currentStep + 1
  if result = targetnr then
    userFoundIt(getAt(newRow, operand2index))
  end if
end

on calculateResult
  set nr1 to the value of operand1
  set nr2 to the value of operand2
  if operator = "+" then
    return nr1 + nr2
  else
    if operator = "-" then
      return nr1 - nr2
    else
      if operator = "x" then
        return nr1 * nr2
      else
        if operator = ":" then
          return nr1 / nr2
        end if
      end if
    end if
  end if
end

on showConnectorToResult operand1index, operand2index, operatorindex
  if operand1index > operand2index then
    set offsetcastnum to 50
  else
    set offsetcastnum to 60
  end if
  set whichCast to offsetcastnum + abs(operand1index - operand2index)
  set the castNum of sprite connectorsnr to whichCast
  set the loc of sprite connectorsnr to the buttonloc of operand2
  set the locH of sprite connectorsnr to the locH of sprite connectorsnr - 35
  set the locV of sprite connectorsnr to the locV of sprite connectorsnr + 12
  set the locH of sprite tempoperatorsnr to the locH of sprite connectorsnr
  set the locV of sprite tempoperatorsnr to the locV of sprite connectorsnr
  set the castNum of sprite tempoperatorsnr to 65 + operatorindex
  updateStage()
  add(connectorlocs, the loc of sprite connectorsnr)
  add(connectorcastnums, the castNum of sprite connectorsnr)
  add(opconnectorcastnums, the castNum of sprite tempoperatorsnr)
end

on hideLastConnector
  set the trails of sprite connectorsnr to 0
  set the trails of sprite tempoperatorsnr to 0
  updateStage()
  if currentStep > 2 then
    set the loc of sprite connectorsnr to getAt(connectorlocs, currentStep - 2)
    set the loc of sprite tempoperatorsnr to the loc of sprite connectorsnr
    deleteAt(connectorlocs, currentStep - 1)
    set the castNum of sprite connectorsnr to getAt(connectorcastnums, currentStep - 2)
    deleteAt(connectorcastnums, currentStep - 1)
    set the castNum of sprite tempoperatorsnr to getAt(opconnectorcastnums, currentStep - 2)
    deleteAt(opconnectorcastnums, currentStep - 1)
  else
    set the loc of sprite connectorsnr to heaven
    set the loc of sprite tempoperatorsnr to heaven
    set connectorlocs to []
    set connectorcastnums to []
  end if
  updateStage()
  set the trails of sprite connectorsnr to 1
  set the trails of sprite tempoperatorsnr to 1
  updateStage()
end

on setAllNrButtonTrails value
  repeat with n = 1 to 2 * nrOfStims
    set the trails of sprite (zerobuttonsnr + n) to value
  end repeat
end

on setAllNrButtonsToDimmed arow, bool
  repeat with n = 1 to count(arow)
    dimNrButton(getAt(arow, n), bool)
  end repeat
end

on clickOnClear
  put "clickonclear"
  if justAborted or menuVisibleP then
    return
  end if
  set clickedsnr to getClickedClearSnr()
  set the castNum of sprite clickedsnr to cast "clearButtonPressed"
  updateStage()
  if currentInputStatus = #waitForOperand2 then
    unpressButton(operand1)
    unpressOperatorButton(operatorindex)
  else
    if currentInputStatus = #waitForOperator then
      unpressButton(operand1)
    end if
  end if
  updatescreenIfUserContinuesAFterFoundIt()
  set currentInputStatus to #waitForOperand1
  set thelastvisibleclearbuttonsnr to zeroClearsnr + currentStep - 1
  repeat with snr = thelastvisibleclearbuttonsnr down to clickedsnr
    waitawhile(20)
    puppetSound("slurp")
    handleClear(snr)
  end repeat
  set operand2index to 0
  updateStage()
end

on getClickedClearSnr
  if calcIsRunningP then
    repeat with n = zeroClearsnr + 1 to zeroClearsnr + nrOfStims
      if rollOver(n) then
        return n
      end if
    end repeat
  else
    set snr to the clickOn
    return snr
  end if
end

on hideLastClearButton snr
  set the visible of sprite snr to 0
  set the castNum of sprite snr to cast "clearButtonUnPressed"
end

on handleClear clearbuttonsnr
  setAllNrButtonsnrsLocsTo(heaven)
  set currentRow to getAt(nrbuttontable, currentStep)
  repeat with i = 1 to nrOfStims
    setNrButtonVisibleP(getAt(currentRow, i), 1)
  end repeat
  hideLastConnector()
  hideLastClearButton(clearbuttonsnr)
  updateStage()
  set previousRow to getAt(nrbuttontable, currentStep - 1)
  repeat with i = 1 to nrOfStims
    showNrButton(getAt(previousRow, i))
    applyVisibleP(getAt(previousRow, i))
    showNrButtonValue(getAt(previousRow, i))
  end repeat
  set currentStep to currentStep - 1
  updateStage()
end

on setAllNrButtonsnrsLocsTo p
  repeat with n = 1 to 2 * nrOfStims
    set the loc of sprite (zerobuttonsnr + n) to p
  end repeat
end

on clickOnCalculator
  if (justAborted and firstabortprocessed) or menuVisibleP then
    return
  end if
  if not calcIsRunningP then
    set the castNum of sprite calculatorsnr to cast "bigCalculatorOn"
    set the loc of sprite nrOfCalcsSnr to nrOfCalcsLoc
    updateStage()
    if justAborted then
      return
    end if
    puppetSound("operatorButtonClick")
    updateStage()
    set calcIsRunningP to 1
    set timeOnStartCalculator to the ticks
    updateStage()
    findsolution()
  else
    set the castNum of sprite calculatorsnr to cast "bigCalculatorOff"
    updateStage()
    set calcIsRunningP to 0
    waitawhile(60)
    if justAborted then
      set firstabortprocessed to 1
    end if
  end if
  updateStage()
end

on clickOnClock
  if justAborted or menuVisibleP then
    return
  end if
  if clockIsActiveP then
    set clockIsActiveP to 0
    set the visible of sprite fillbarsnr to 0
    set the visible of sprite maxsecssnr to 0
    set the visible of sprite timeOutLinesnr to 0
    set the castNum of sprite clocksnr to cast "cloud"
  else
    set the visible of sprite fillbarsnr to 1
    set the visible of sprite maxsecssnr to 1
    set the visible of sprite timeOutLinesnr to 1
    set clockIsActiveP to 1
    set the castNum of sprite clocksnr to cast "sun"
    resetTheClock()
  end if
  updateStage()
end

on initRadioButtons
  set the checkBoxAccess to 2
  set the hilite of cast "60 secs" to 0
  set the hilite of cast "120 secs" to 0
  set the hilite of cast "180 secs" to 1
  set the hilite of cast "240 secs" to 0
  set the hilite of cast "6000 secs" to 0
  repeat with n = 35 to 40
    puppetSprite(n, 1)
    set the loc of sprite n to heaven
  end repeat
  set lastbutton to 77
  set nrOfSecsInMAxSecs to 180
  put toRoman(nrOfSecsInMAxSecs) into field "maxsecs"
end

on clickOnRadioButton
  if justAborted or menuVisibleP then
    return
  end if
  if calcIsRunningP then
    if (the mouseCast < 75) or (the mouseCast > 79) then
      return
    end if
    set snr to the mouseCast - 39
  else
    set snr to the clickOn
  end if
  if snr <> 0 then
    set castn to the mouseCast
    set the hilite of cast lastbutton to 0
    set the hilite of cast castn to 1
    updateStage()
    set nrOfSecsInMAxSecs to getAt([60, 120, 180, 240, 6000], castn - 75 + 1)
    put toRoman(nrOfSecsInMAxSecs) into field "maxsecs"
    set lastbutton to castn
    set deadlinePassed to 0
    closeRadioButtonWindow()
  end if
  updateStage()
end

on clickOnMaxSecs
  if justAborted or menuVisibleP then
    return
  end if
  openRadioButtonWindow()
end

on openRadioButtonWindow
  set the loc of sprite 35 to point(570, 14)
  repeat with n = 36 to 40
    set the loc of sprite n to point(570, 19 + ((n - 36) * 17))
  end repeat
  updateStage()
end

on closeRadioButtonWindow
  waitawhile(45)
  repeat with n = 35 to 40
    set the loc of sprite n to heaven
  end repeat
end

on resetTheClock
  puppetSound("ticktack")
  spriteBox(fillbarsnr, the left of sprite fillbarsnr, the top of sprite fillbarsnr, 5 + the left of sprite fillbarsnr, the bottom of sprite fillbarsnr)
  set timeAtReset to the ticks
  set ticksPassed to 0
  set deadlinePassed to 0
  set the foreColor of field "maxsecs" to 193
end

on updateFillBar
  if not deadlinePassed then
    set maxticks to 60 * nrOfSecsInMAxSecs
    set ticksPassed to the ticks - timeAtReset
    if ticksPassed > maxticks then
      timeIsUp()
    end if
    set newlength to max(5, min(maxlengthFillbar, (ticksPassed + 0.01) / maxticks * maxlengthFillbar))
    spriteBox(fillbarsnr, the left of sprite fillbarsnr, the top of sprite fillbarsnr, newlength + the left of sprite fillbarsnr, the bottom of sprite fillbarsnr)
    if ticksPassed = (0.90000000000000002 * maxticks) then
      puppetSound("ticktack")
    end if
    updateStage()
  end if
end

on timeIsUp
  puppetSound("timeIsUp")
  set deadlinePassed to 1
end

on idle
  set justAborted to 0
  set firstabortprocessed to 0
  if clockIsActiveP then
    updateFillBar()
  end if
end

on initDatabase
  set findProblemInDatabaseP to 1
  set selectableProblems to []
  set nrOfTextFields to 4
  if easyP then
    set prefixstr to "eproblems"
  else
    set prefixstr to "problems"
  end if
  repeat with n = 1 to nrOfTextFields
    set fieldname to prefixstr & string(n)
    set i to the number of lines in field fieldname
    if line i of field fieldname = EMPTY then
      set i to i - 1
    end if
    repeat with nn = 1 to i
      add(selectableProblems, LineAndProblemNumberToIndex(nn, n))
    end repeat
  end repeat
end

on selectAProblem
  if (selectableProblems = []) or switchedP then
    initDatabase()
    set switchedP to 0
  end if
  set i to random(count(selectableProblems))
  set index to getAt(selectableProblems, i)
  set r to indexToLineAndProblemNumber(index)
  set lnr to getAt(r, 1)
  set pnr to getAt(r, 2)
  if easyP then
    set prefixstr to "eproblems"
  else
    set prefixstr to "problems"
  end if
  set fieldname to prefixstr & string(pnr)
  set theline to line lnr of field fieldname
  set targetnr to value(word 1 of theline)
  set stimSet to []
  repeat with n = 2 to 7
    add(stimSet, value(word n of theline))
  end repeat
  set fakesolution to word 8 to the number of words in theline of theline
  set fakesolution to parseStringOfNrsToRoman(fakesolution)
  set stimSet to scramble(stimSet)
  deleteAt(selectableProblems, i)
end

on indexToLineAndProblemNumber i
  set lnr to i mod 1000
  set pnr to i / 1000
  return [lnr, pnr]
end

on LineAndProblemNumberToIndex lnr, pnr
  return (pnr * 1000) + lnr
end

on findsolution
  set bestresultSoFar to 100000
  set bestresultSoFarStr to EMPTY
  put bestresultSoFarStr into field "showprogress"
  set nrofcalculations to 0
  put toRoman(nrofcalculations) into field "calculationsfield"
  findsolution6(scramble(stimSet), EMPTY, nrOfStims)
end

on waitawhile n
  set t to the ticks
  repeat while the ticks < (t + n)
    nothing()
  end repeat
end

on scramble list
  set nr to count(list)
  repeat with n = 1 to nr
    set pickOne to random(nr)
    set list to swap(list, 1, pickOne)
  end repeat
  return list
end

on swap list, i1, i2
  set temp to getAt(list, i1)
  setAt(list, i1, getAt(list, i2))
  setAt(list, i2, temp)
  return list
end

on clickOnExit
  if justAborted then
    return
  end if
  unpuppetall()
  fillHiScore()
  go("uitro")
end

on clickOnExamples
  if justAborted then
    return
  end if
  go("exampl")
end

on clickOnExplainRules
  if justAborted then
    return
  end if
  go("help")
end

on doneWithRules
  if justAborted then
    return
  end if
  go("play")
end

on clickOnMenu
  if justAborted then
    return
  end if
  if the castNum of sprite menusnr = 146 then
    if easyP then
      set the castNum of sprite menusnr to cast "menuopenFac"
    else
      set the castNum of sprite menusnr to cast "menuopenCom"
    end if
    set the loc of sprite menusnr to point(320, 324)
    set menuVisibleP to 1
  else
    set the castNum of sprite menusnr to cast "menuclosed"
    set the loc of sprite menusnr to point(353, 462)
    set menuVisibleP to 0
    if the mouseV < 291 then
    else
      if the mouseV < 338 then
        clickOnExplainRules()
      else
        if the mouseV < 370 then
          clickOnExamples()
        else
          if the mouseV < 402 then
            clickOnEasy()
          else
            if the mouseV < 428 then
              clickOnhard()
            end if
          end if
        end if
      end if
    end if
  end if
end